home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
HPAVC
/
HPAVC CD-ROM.iso
/
CNBSRC.ZIP
/
REVSYS.INC
< prev
next >
Wrap
Text File
|
1996-01-14
|
3KB
|
92 lines
Procedure REVSYS;
begin
xline[1] := ' ';
xline[2] := ' I downloaded and reviewed oodles of packs this month to make up';
xline[3] := ' for the absence of articles and interviews. Anyways, what I ';
xline[4] := ' did was look over the packs and instead of reviewing each and ';
xline[5] := ' every single piece of art, I just commented on each artists'' ';
xline[6] := ' total effort, giving him a rating between 1 and 10 check marks.';
xline[7] := ' Next to each group''s name I gave a letter grade (A,B,C,D,F) ';
xline[8] := ' representing the quality of the pack overall. ';
xline[9] := ' ';
xline[10] := ' Stone the Crow ';
XENd := 10;
{Read selected text}
textbackground(0);
textcolor(9);
clrscr;
T_HDRimg{Display the text header ansi};
window(4,5,76,21);
gotoxy(1,1);
xch := ' ';
for x := 1 to 16 do
writeln(xline[x]);
while (xch <> (#13)) and (xch <> (#27)) do begin
xch := ' ';
xch := readkey;
case xch of
(#80) :begin
if x <= xend then
begin
x := x + 1;
gotoxy(1,1);
delLine;
gotoxy(1,16);
writeln(xline[x]);
end;
end;
(#72) :begin
if (x - 15) > (1) then
begin
x := x - 1;
gotoxy(1,1);
InsLine;
writeln(xline[x-15]);
end;
end;
(#81) :begin
if x <= xend then
begin
x := x + 1;
gotoxy(1,1);
delLine;
gotoxy(1,16);
writeln(xline[x]);
end;
end;
(#73) :begin
if (x - 15) > (1) then
begin
x := x - 1;
gotoxy(1,1);
InsLine;
writeln(xline[x-15]);
end;
end;
(#77) :begin
if x <= xend then
begin
x := x + 1;
gotoxy(1,1);
delLine;
gotoxy(1,16);
writeln(xline[x]);
end;
end;
(#75) :begin
if (x - 15) > (1) then
begin
x := x - 1;
gotoxy(1,1);
InsLine;
writeln(xline[x-15]);
end;
end;
end;
end;
window(1,1,80,25){Return screen to normal size};
end;